Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic.Compatibility

Module DataEnvironment_DataEnvironment2_Module
	Friend DataEnvironment2 As DataEnvironment_DataEnvironment2 = New DataEnvironment_DataEnvironment2()
End Module

Friend Class DataEnvironment_DataEnvironment2
	Inherits VB6.BaseDataEnvironment
	Public WithEvents Connection1 As ADODB.Connection
	Public WithEvents rsCommand1 As ADODB.Recordset
	Private m_Command1 As ADODB.Command
	Public Sub New()
		MyBase.New()
		Dim par As ADODB.Parameter
		
		
		Connection1 = New ADODB.Connection()
		Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\AutoLIS\db1.mdb;Persist Security Info=False;"
		m_Connections.Add(Connection1, "Connection1")
		m_Command1 = New ADODB.Command()
		rsCommand1 = New ADODB.Recordset()
		m_Command1.Name = "Command1"
		m_Command1.CommandText = "Select x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19,x20,x21,x22,x23,x24,x25,x26,x27,x28,x29"
		m_Command1.CommandType = ADODB.CommandTypeEnum.adCmdText
		par = m_Command1.CreateParameter
		par.Name = "x1"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x2"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x3"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x4"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x5"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x6"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x7"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x8"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x9"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x10"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x11"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x12"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x13"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x14"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x15"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x16"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x17"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x18"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x19"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x20"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x21"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x22"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x23"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x24"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x25"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x26"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x27"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x28"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x29"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		rsCommand1.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rsCommand1.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rsCommand1.LockType = ADODB.LockTypeEnum.adLockReadOnly
		rsCommand1.Source = m_Command1
		m_Commands.Add(m_Command1, "Command1")
		m_Recordsets.Add(rsCommand1, "Command1")
	End Sub
	Public Sub Command1(ByVal x1 As String, ByVal x2 As String, ByVal x3 As String, ByVal x4 As String, ByVal x5 As String, ByVal x6 As String, ByVal x7 As String, ByVal x8 As String, ByVal x9 As String, ByVal x10 As String, ByVal x11 As String, ByVal x12 As String, ByVal x13 As String, ByVal x14 As String, ByVal x15 As String, ByVal x16 As String, ByVal x17 As String, ByVal x18 As String, ByVal x19 As String, ByVal x20 As String, ByVal x21 As String, ByVal x22 As String, ByVal x23 As String, ByVal x24 As String, ByVal x25 As String, ByVal x26 As String, ByVal x27 As String, ByVal x28 As String, ByVal x29 As String)
		If Connection1.State = ADODB.ObjectStateEnum.adStateClosed Then
			Connection1.Open()
		End If
		If rsCommand1.State = ADODB.ObjectStateEnum.adStateOpen Then
			rsCommand1.Close()
		End If
		m_Command1.ActiveConnection = Connection1
		m_Command1.Parameters.Item("x1").Value = x1
		m_Command1.Parameters.Item("x2").Value = x2
		m_Command1.Parameters.Item("x3").Value = x3
		m_Command1.Parameters.Item("x4").Value = x4
		m_Command1.Parameters.Item("x5").Value = x5
		m_Command1.Parameters.Item("x6").Value = x6
		m_Command1.Parameters.Item("x7").Value = x7
		m_Command1.Parameters.Item("x8").Value = x8
		m_Command1.Parameters.Item("x9").Value = x9
		m_Command1.Parameters.Item("x10").Value = x10
		m_Command1.Parameters.Item("x11").Value = x11
		m_Command1.Parameters.Item("x12").Value = x12
		m_Command1.Parameters.Item("x13").Value = x13
		m_Command1.Parameters.Item("x14").Value = x14
		m_Command1.Parameters.Item("x15").Value = x15
		m_Command1.Parameters.Item("x16").Value = x16
		m_Command1.Parameters.Item("x17").Value = x17
		m_Command1.Parameters.Item("x18").Value = x18
		m_Command1.Parameters.Item("x19").Value = x19
		m_Command1.Parameters.Item("x20").Value = x20
		m_Command1.Parameters.Item("x21").Value = x21
		m_Command1.Parameters.Item("x22").Value = x22
		m_Command1.Parameters.Item("x23").Value = x23
		m_Command1.Parameters.Item("x24").Value = x24
		m_Command1.Parameters.Item("x25").Value = x25
		m_Command1.Parameters.Item("x26").Value = x26
		m_Command1.Parameters.Item("x27").Value = x27
		m_Command1.Parameters.Item("x28").Value = x28
		m_Command1.Parameters.Item("x29").Value = x29
		rsCommand1.Open()
	End Sub
End Class